home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #001 (19xx)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #001 (19xx)(Amiga User Group Deutschland e.V.).adf
/
KickChange
/
KickChange.bas
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1986-10-22
|
1KB
|
46 lines
OPEN "R", #1, "KickChange",1
FIELD #1, 1 AS a$
CLS
LOCATE 10,10:PRINT "Einen kleinen Augenblick"
LOCATE 12,10:PRINT "Byte : von : 140"
LOCATE 13,10:PRINT "Check: von : 6800"
i%=1
READ b$
WHILE (b$<>"ENDE")
a=VAL("&h"+b$)
sum =sum +a
LSET a$ =CHR$(a)
PUT #1, i%
LOCATE 12,17:PRINT i%
LOCATE 13,17:PRINT sum
i%=i%+1
READ b$
WEND
CLOSE #1
IF sum <> 6800 THEN
KILL "KickChange"
LOCATE 15,5: PRINT "Fehler in Data !!"
END IF
KILL "KickChange.info"
IF sum =6800 THEN
LOCATE 15,5:PRINT "KickChange installiert"
LOCATE 17,5:PRINT "Aufruf vom CLI :";
PRINT " 'KickChange'"
LOCATE 18,5:PRINT "Aufruf von der Workbench :";
PRINT "Programm-Icon malen und wie ueblich anklicken"
END IF
DATA 00,00,03,f3,00,00,00,00,00,00,00,02,00
DATA 00,00,00,00,00,00,01,00,00,00,11,00,00
DATA 00,01,00,00,03,e9,00,00,00,11,20,3c,00
DATA 03,00,00,33,c0,00,df,f1,80,53,80,4a,80
DATA 66,f4,41,f9,00,00,00,26,23,c8,00,00,00
DATA 20,46,fc,27,00,4e,71,4e,71,46,fc,27,00
DATA 41,f9,00,fc,00,00,43,f9,00,f8,00,00,70
DATA 00,4e,70,20,80,4e,d1,00,00,00,00,00,00
DATA 00,00,03,ec,00,00,00,01,00,00,00,00,00
DATA 00,00,14,00,00,00,00,00,00,03,f2,00,00
DATA 03,eb,00,00,00,01,00,00,03,f2,ENDE